﻿Public Class cInformacion_Personal
    Private varCargo_Actual As String
    Private varCargo_Aspira As String
    Private varCelular As String
    Private varCodigo_Estado_Civil As String
    Private varCodigo_Estudio As Long
    Private varDireccion_Residencia As String
    Private varEmail As String
    Private varLugar_Fecha_Nacimiento As String
    Private varOtras_Direcciones As String
    Private varProfesion As String
    Private varTelefono As String
    Private datos As New dInformacion_Personal

    Public Property Codigo_Estudio As Long
        Get
            Return varCodigo_Estudio
        End Get
        Set(ByVal value As Long)
            varCodigo_Estudio = value
        End Set
    End Property

    Public Property Lugar_Fecha_Nacimiento As String
        Get
            Return varLugar_Fecha_Nacimiento
        End Get
        Set(ByVal value As String)
            varLugar_Fecha_Nacimiento = value
        End Set
    End Property

    Public Property Direccion_Residencia As String
        Get
            Return varDireccion_Residencia
        End Get
        Set(ByVal value As String)
            varDireccion_Residencia = value
        End Set
    End Property

    Public Property Otras_Direcciones As String
        Get
            Return varOtras_Direcciones
        End Get
        Set(ByVal value As String)
            varOtras_Direcciones = value
        End Set
    End Property

    Public Property Telefono As String
        Get
            Return varTelefono
        End Get
        Set(ByVal value As String)
            varTelefono = value
        End Set
    End Property

    Public Property Celular As String
        Get
            Return varCelular
        End Get
        Set(ByVal value As String)
            varCelular = value
        End Set
    End Property

    Public Property Profesion As String
        Get
            Return varProfesion
        End Get
        Set(ByVal value As String)
            varProfesion = value
        End Set
    End Property

    Public Property Cargo_Actual As String
        Get
            Return varCargo_Actual
        End Get
        Set(ByVal value As String)
            varCargo_Actual = value
        End Set
    End Property

    Public Property Cargo_Aspira As String
        Get
            Return varCargo_Aspira
        End Get
        Set(ByVal value As String)
            varCargo_Aspira = value
        End Set
    End Property

    Public Property Email As String
        Get
            Return varEmail
        End Get
        Set(ByVal value As String)
            varEmail = value
        End Set
    End Property

    Public Property Codigo_Estado_Civil As String
        Get
            Return varCodigo_Estado_Civil
        End Get
        Set(ByVal value As String)
            varCodigo_Estado_Civil = value
        End Set
    End Property

    Public Sub Cargar(ByVal campo As String)
        'Dim datos As New dAnalistas
        Dim resultado As ArrayList
        resultado = datos.CargarMysql(campo)
        'almacenar campos resultado de consulta por registro
        varLugar_Fecha_Nacimiento = resultado(0)
        varDireccion_Residencia = resultado(1)
        varOtras_Direcciones = resultado(2)
        varTelefono = resultado(3)
        varCelular = resultado(4)
        varProfesion = resultado(5)
        varCargo_Actual = resultado(6)
        varCargo_Aspira = resultado(7)
        varEmail = resultado(8)
        varCodigo_Estado_Civil = resultado(9)
    End Sub

    Public Sub Guardar()
        'Dim Datos As New dAnalistas
        datos.GuardarMysql(varCodigo_Estudio, varlugar_fecha_nacimiento, varDireccion_Residencia, varOtras_Direcciones, varTelefono, varCelular, varProfesion, varCargo_Actual, varCargo_Aspira, varEmail, varCodigo_Estado_Civil)
    End Sub

End Class
